From 0c0a06a3e18c8b1d33b5625dc25a5723bef1f0c1 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 19 Jul 2013 16:44:16 +0200 Subject: [PATCH] eww textarea input fixup * net/eww.el (eww-process-text-input): Allow inputting when the point is at the start of the line, as the properties aren't front-sticky. --- lisp/ChangeLog | 4 ++++ lisp/net/eww.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ce365099fac..d273d158581 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2013-07-19 Lars Magne Ingebrigtsen + * net/eww.el (eww-process-text-input): Allow inputting when the + point is at the start of the line, as the properties aren't + front-sticky. + * net/shr.el (shr-make-table-1): Ensure that we don't infloop on degenerate widths. diff --git a/lisp/net/eww.el b/lisp/net/eww.el index d832aa7ef3e..d65932ae7c9 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -603,7 +603,7 @@ appears in a or tag." (insert " "))) (defun eww-process-text-input (beg end length) - (let* ((form (get-text-property end 'eww-form)) + (let* ((form (get-text-property (min (1+ end) (point-max)) 'eww-form)) (properties (text-properties-at end)) (type (plist-get form :type))) (when (and form -- 2.30.2